home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Dir / Dir.avail next >
Text File  |  1999-04-21  |  1KB  |  68 lines
  1. G4C
  2.  
  3.  
  4. WinBig 10 14 250 80 "Available Memory"
  5.  
  6. xOnLoad 
  7. CLI 'resident c:eval add PURE'
  8. CLI 'resident c:avail add PURE'
  9. setvar .av_used  0
  10. setvar .av_totused 0
  11. setvar av_old 0
  12. guiopen dir.avail
  13. CLI 'avail total >env:.av'
  14. setvar av_old $.av
  15. update dir.avail 1 $.av
  16.  
  17. xOnRMB
  18. Status
  19.  
  20. xOnClose
  21. guiquit dir.avail
  22. CLI 'resident c:eval remove'
  23. CLI 'resident c:avail remove'
  24.  
  25. Text 5 10 140 14 "Available" 100 NOBOX
  26. Text 105 10 140 14 "" 100 BOX
  27. gadid 1
  28.  
  29. Text 5 25 140 14 "Used Last" 100 NOBOX
  30. Text 105 25 140 14 "" 100 BOX
  31. gadid 2
  32.  
  33. Text 5 40 140 14 "Total Used" 100 NOBOX
  34. Text 105 40 140 14 "" 100 BOX
  35. gadid 3
  36.  
  37.  
  38. xButton 5 60 60 14 Avail
  39. CLI 'avail total >env:.av'
  40. update dir.avail 1 '$.av'
  41. CLI 'eval >env:.av_used $av_old - $.av'
  42. CLI 'eval >env:.av_totused $.av_totused + $.av_used' 
  43. setvar av_old $.av
  44. update dir.avail 2 $.av_used
  45. update dir.avail 3 $.av_totused
  46.  
  47.  
  48. xButton 185 60 60 14 Reset
  49. CLI 'avail >NIL: flush'
  50. CLI 'avail >NIL:'
  51. setvar .av_used 0
  52. setvar .av_totused 0
  53. setvar .av_old $.av
  54. update dir.avail 2 $.av_used
  55. update dir.avail 3 $.av_totused
  56.  
  57.  
  58. xButton 95 60 60 14 Flush
  59. CLI 'avail >NIL: flush'
  60. CLI 'avail total >env:.av'
  61. update dir.avail 1 '$.av'
  62. CLI 'eval >env:.av_used $av_old - $.av'
  63. CLI 'eval >env:.av_totused $.av_totused + $.av_used' 
  64. setvar av_old $.av
  65. update dir.avail 2 $.av_used
  66. update dir.avail 3 $.av_totused
  67.  
  68.